home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Especial Multimedia
/
Especial Multimedia.iso
/
Multimed
/
Prg
/
STR2BMP.ZIP
/
TEST.BAS
< prev
next >
Wrap
BASIC Source File
|
1997-09-14
|
1KB
|
31 lines
'// Test.bas : VB Demo for STR2BMP.DLL.
'//
'// Freeware -- Version 1.1 09/20/93
'//
'// Written by Jorge Monasterio (CIS 72147, 2674)
'//
'//
Option Explicit
' Bitmap to string functions...
Declare Function BMPToString Lib "str2bmp.dll" (ByVal hDC%, ByVal img%) As String
' Bitmap handling functions.
Declare Function StringToBmp Lib "str2bmp.dll" (ByVal a$, ByVal hDC%, ByVal img%) As Long
' To check if bitmap will fit in bitmap...
Declare Function BMP_GetSize Lib "str2bmp.dll" (ByVal img%) As Long
' Functions for operating on bitmaps stored as strings.
Declare Function StringBMP_Compare Lib "str2bmp.dll" (ByVal a$, ByVal b$) As Long
Declare Function StringBMP_Invert Lib "str2bmp.dll" (ByVal a$) As String
Declare Function StringBMP_Or Lib "str2bmp.dll" (ByVal a$, ByVal b$) As String
Declare Function StringBMP_and Lib "str2bmp.dll" (ByVal a$, ByVal b$) As String
Sub MakePicture (a$, p As PictureBox)
Dim ret As Long
ret = StringToBmp(a$, p.hDC, p.Image)
If (ret < 0) Then Stop
End Sub